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Continuamos a receber programas originais de 
jovens inventores portugueses, que de novo 
agradecemos. É-nos, no entanto, difícil a reprodução 
dos jogos, cuja listagem não é enviada em cassette. 
Chamamos a vossa atenção para este «pormenor» 
da vossa colaboração. 


OS JOGOS DO MÊS 
Foram premiados no mês de Maio «O Jogo das 
Palavras», de Manuel R. Ganhão e «Peixinho do 
Mar», de José Alexandre Correia. Parabéns! 
Lembramos que aos leitores dos programas 
premiados oferecemos dois prémios: uma 
assinatura semestral dos «JOGOS SORTIDOS» e um 
volume encadernado da revista de banda desenhada 
«JORNAL DA BD» 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de teleforr. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. —- 1200 LISBOA 


PEIXINHO DO MAR 


Escrito para o Z X SPECTRUM por José Alexandre 
do Carmo M. Correia especialmente para si. Di- 
virta-se a dar de comer 15 pequenas algas a um 
peixinho, que se passeia, feliz, no mar do seu 
ecran. Também tem que evitar que ele caia na 
boca ameaçadora de 24 caranguejos e que dê à 
costa! Quanto menos movimentos fizer para aca- 
bar o jogo, melhor. 
Teclas para jogar: 

Q — para cima 

A — para baixo 

E — para a esquerda 

R — para a direita 


Pode definir quaisquer outras teclas para jogar. des (SOMID Cia E ad 


JIMENTOS 


FEIXINHO E MAR 


HPERHNHAR O MRAIMO DE 
EUITANDO CAIR Na BOCA 
CARANGUEJOS E EM TERRA 


-KEYBORD (D,R,E,R) 
2-CURSOR JOISTICK 
3-ABUTO DEFINICRO DE TECLAS 
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LET. at=2".EET- =D: LE 


n 
m 


ErrEsprIrrrprrrrrrrrr + 
resPEIXINHO DO HARS=2ES 
LLELLLIIILIrrrrEETLEE EEE 
41 ++ JOSE BLEXANCRE DO CTA 
MARQUES CORRIIS. 1935 é 
LET bes t=8 | 
REAe SUB FEQ. REM &+ INSTRUCO 


“INPUT “QUAL O TEU NOMES: PS 
O SUB 375. REM ++ ESCOLHA 
LADO ++ 
DRDER 6: PAPER ?P: INK à: LC 
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2” INK 
LET bã 
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LP INK 


IF INKEYvgG="" 
CE=INKErS: 


LET 
RT 10, 
IF INK 


IP IMNKETE= 0" 
LET d$=INKErS: 


AT 14, 
.FRUSE 
“RETURN 
REM 


FOR 
LE SR 
LET q 
IF ETT 


REM ++F CRAPRICS na 
Uai rf 


PRINT 
BEEP . 
NEXT f 
RETURN 


REM ++ COLOUCACAUO DOS 


ret TO Bu 
SENT 4 
= TWT - É 
,91 =59 THEN GO 


o ++ 
FOR 
ES. h 
EE q 
IF ATT 


REM 
JUIT 
PRINT 
DREP 
MEZI cf 
RETURN 


CUCA = Pes poe a 
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=ENT. 1 
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DRI: O 
TO 
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TO 
1,8: 
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43 


ido 
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THEN GO 
- BEER 


“ THEN GO 


THEN GO 
BEEF 


THEN GO 


THEN GO TO 470 
BEEP .i,B;> P 


THEN GO TO 45 


THEN GO TO àéB5 
BEEP .1,8: P 


EREP 


.. ** 


BEER 


RND +22! 


(RNDESZ! 


,131=60 THEN CO TO 
linha 3 


3; INK dit 


CRREGNG 


iBiNDÍL131+5 


RNDI26) +2 
TO 


iimnha a 


Ega 


PRICS na 
INF & 


3: 


JOGO DAS LETRAS 


O autor deste programa é o Manuel Ramos Ga- Ao EE qJoGu CAS LETEES 
nhão, de Samora Correia, que tem 15 anos de SO PRINT AT 1,10," 
idade e o escreveu para o Sinclair ZX-81. au | JS: 

É a versão computadorizada de um tradicional E RT SE aa 
passatempo, que consiste na ordenação de letras Fé O Ma És 

por ordem alfabética. Por que não jogá-lo ao de- 90 FOR I=1i To s 
safio com um amigo que não conheça as artes 1090 FOR J=1 TO s 


110 LET M$CIL, Ji =CHR$ (I+5$UJ+52- 
do computador mas goste de fazer qualquer um GB LI=5 AMD J-51) 


dos outros passatempos desta revista? 120 PRINT AT Z2Z+:1I+5,Z2+:J+9;M$LI.J 
) 


Quando o jogo começa aparece no écran uma ma- 
triz com as letras fora de ordem e com uma das 
posições em branco. Utilize, então, as teclas de 
movimento do cursor(—p> ., 1, See) 
para mover o espaço em branco e ordenar a 
matriz original. 


130 
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po moama A 
Mm 
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08 
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TRL 
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panutura do Prograraa | PRINT AT 260,1; “APERTE UMA T 
, PARA INICIAR" 
LINHAS FUNÇÕES E Ria Uta Ea 
40 Título PRINT AT 26,1; 
20-70 Desenha a moldura na tela 2CU | 
80  Dimensiona matriz que conterá letras = E JKEY6<>"” THEN GO TO 28. 
90-140 Preenche moldura e matriz com letras em Ee 
ordem =: LEY “» THEN GO TO 290 
SE : CE & 
150-180 Inicializa valores de linha e coluna G XE="S" AND C=1 THEN RETU 
190-220 Coloca a matriz fora de ordem ao acaso 
Es -R = WINE =, + ETIU 
230-270 Mensagem inicial e ciclo de espera de te- E si NIE ME 
clagem 330 X$="7" AND F=1 THEN RETU 
280-380 Descodifica a tecla pressionada AMD C=S5 THEN RETU 
390-430 Actualiza matriz e tela, com mudança de pia 
posição de letras THEN LET ENce si 
440-450 Actualiza valores THEN LET FN=F-1 


THEN LET CN=C+1 
PN Et) 

Má CH) =M$G LF,OC) 

Lt M$ EF, EC) =X 

PRE, AT 24FM+S, 24CN+9; Hg iF 


“PRINT AT 24F 45, 240 +44: MEIF. 
Fa=FN 


LET C=CN 
RETURN 


Ç 
ARE = 
o q 


DM Jim 


| Do. 
Cd CO Qi Cd E 


4 um 


TIZANTA 
+» 


o 


A) A 


MISSÃO NA LUA 


John Miller escreveu este programa para o seu 
SPECTRUM. 

“A missão do jogador é uma operação de salva- 
mento de 10 astronautas que ficaram retidos na 
lua. Os meios ao seu alcance são apenas três 
velhas naves espaciais que, por esta razão só se 
deslocam da esquerda para a direita. Movendo-se 
nestes dois sentidos e em direcção ao topo do 
écran você tem que atravessar uma camada de 
asteróides para encontrar os 10 astronautas que 
o esperam estacionados no solo lunar. Para co- 
meçar a descer prima 0; 5 para se deslocar para 
a esquerda e 8 para a direita. 

Deve evitar colidir com os asteróides e aterrar 
na pista encarnada. Na lua há um compasso de 
espera para permitir ao astronauta a entrada na 
sua nave. No regresso evite, ainda também os 
guardas do planeta, que estão representados por 
umas pequenas criaturas azuis. 

Repita a operação de salvamento para cada um 
dos 10 astronautas. 

O jogo acaba ou depois de você salvar todos os 
astronautas ou se perder três das suas naves. 
Se achar o jogo muito fácil altere a velocidade 


de actuação do inimigo, ou seja, dos asteróides 
e das naves, mudando o valor de PINE, na linha 
9042. 


REM Moon Resçue € J.Miller 


REM | 
Capital letters NOT nart 


of messages are entered 
in graphics mode. 
RESTORE 9998: GO SUB 91948 
RESTORE : GO SUB 9994 
GO SUB wait 
GO TO stagel 
GO TO stageZ 
3a IF ship<4 AND mantig THEN 
GO TO 18 
ag GO TO endgame 
19948 REM stagel 
1991 LET up=9 
1992 LET x=2: 
=9: DIM a$(5,532): 
1995 LET manz=manti 
1997 LET pointerzi 


LET y=3: 
DIM i$(5,32) 


LET mothx 


19968 LET inc=1 

1919 FOR c=1i TO S: FOR d=1 TO 32 
19022 IF RND *(11i-man)<.4 THEN 

LET aSic,d)="G" 

1939 NEXT d: NEXT c 

1935 CLS 

1948 GO SUB surface 

1256 GO SUB topprint 

1964 PRINT AT 9,6; INK ó6j;jscore; 
AT 9,175 INK S;jhigh; AT 2,38; TI 

NK 7?;ship 

. 4978 FOR c=1i TO 5º PRINT AT 4+c 

*2,205 INK 6;jas(c): NEXT c 

1989 PRINT AT 2Z2,9;m&; AT 3,9;ng 
; AT sx 

1985 PRINT AT 3,355s$ 

1222 LET mothx=mothx+inc: IF NO 

T drop THEN LET x=x+inc 

12241 IF mothx=28 THEN LET inc=- 
1 

1292 IF mothx=i THEN LET inc=i 
1285 PRINT AT 2,mothx;ms; AT 3, 
mothx;nS: PRINT AT y,x;s& 

1218 LET pointer=pointer+pinc: 1 
F pointer>32 THEN LET pointer=1 
1213 FOR c=i TO 8º PRINT INK 63 
AT 4+cx2,0;ab(c,pointer TO )Jjas 
(c, TO pointer-1): NEXT c 

1228 IF INKEY$ ="9" THEN LET d 
rop=i 

1221 BEEP .995,24%Xdrop-12: BEEP 
-. 005,24%drop-1i9 

1223 PRINT AT y,x)" * 

1225 LET y=y+drop: IF y=21 THEN 
GO TO shiploss 

1222 IF NOT. drop THEN GO TO 12 

as 

1239 LET x=x-( INKEYS ="5" AND x 
20)+€ INKEYS ="8" AND x<32) 

1235 IF ATTR (y,x)=3 THEN GO 7 

O 28 

1249 IF SCREENS (y,x)="" THEN 
GO TO shiploss 

1399 GO TO 12809 

1999 STOP ' 

22048 PRINT AT y-1i,x;st: FOR c=1 
TO 10: BEEP .1,+º-10+c? BEEP .d,- 
19-c: NEXT c 

29001 LET up=2: LET drop=Z 

2002 LET pointer=i 

2895 LET minman)=8B: LET nman=nma 
n+1 

29018 CLS : GO SUB surface: GO SU 
B topprint 

2020 LET y=y-1: PRINT AT y,xijis$ 
2038 FOR c=1i TO 5: FOR d=i TO 32 
2048 IF RND X(11i-man)<.4 THEN 


LET iS(c,di="Hº 
2050 BEEP .995,39: NEXT d: NEXT 
c 
2955 LET score=score+259 
2067 PRINT AT 8,65 INK 6j;score; 
AT 29,17; INK S;ihigh; AT 9,389; I 
NK ?j;chip 
297% FOR c=1i TO 5: PRIMT AT 4+c 
*2,25 INK Sjig(c): NEXT c 
2988 PRINT AT 2Z,mothxi;jm&; AT 3, 
mothx; ng 
21990 LET mothx=mothx+inc 
21801 IF mothx=28 THEN LET inc=- 
1 
2192 IF mothx=1 THEN LET inc=i 
2195 PRINT AT 2,mothx;m$; AT >, 
mothx; ng 
2196 PRINT AT y,x5;5s$s 
2118 LET pointer=pointer+t+pinc: 1 
F pointer>32 THEN LET pointer=1 
2115 FOR c=1 TO 5: PRINT INK 5; 
AT 4+cX2,9;i&(c,pointer TO );ig 
(c, TO pointer-1): NEXT c 
212% IF INKEYS ="g9" THEN LET u 
p=1 
2139 BEEP .9905,24%up-12: BEEP .g 
95,24%up-ig 
2:40. PRINT AT yaxI” E 
2159 LET y=y-up: IF y<3 THEN GO 
TO shiploss 
2169 IF y=3 AND x=mothx+2 THEN 
GO TO home 
2173 IF NOT up THEN GO TO 2189 
2189 LET x=x-( INKEYS ="S" AND x 
29) +: INKEYS ="8"- AND x<32) 
2198 IF SCREENS (y,x)="" THEN 
GO TO shiploss 
22204 GO TO 2109 
2999 STOP 
Sa9A INK 72: PAPER 9: BORDER 8: C 
LS ! | 
32010 FOR c=9 TO 58: PLOT RND 2 
35, RND %175: NEXT c 
3928 PRINT AT 5,45 INK S;"WELCO 
ME TO "MOON RESCUE" 
3925 PRINT AT 7,4; INK 3;"E Joh 
A MHilter Dét 1982” 
S034 PRINT AT 16,9; FLASH 1; BR 
IGHT 1;"PRESS ANY KEY WHEN YOU A 
RE READY" 
3944 IF INKEYS ="" THEN GO TO 
Sea) 
39045 PRINT AT 16,9; OVER 1;"PRE 
SS ANY KEY WHEN YOU ARE READY" 
3954 RETURN 
4900 INK 4: PRINT AT 17,9;"1I 
Mr 


42021 PRINT AT 18,9;"HI 

Ma” 
4292 PRINT AT 19,9; "BHI 

ME” 
42903 PRINT AT 29,9; "NEHI “s I 
NK 35 "KHEN"; INK 4;" “; I 
NK 35 "KHEN"; INK 45" MENH “ 
4994 PRINT AT 21,9; "HEHHJJJJNAJ 
33J]JJJJJJ8HJJJJJJCRAA 
4995 FOR c=1 TO 19: IF m(c)>8 TH 
EN PRINT AT 29,m(c); INK 6;"L” 
4996 NEXT c 
4919 INK 7: RETURN , 
S099 PRINT AT 9,9; INK 6; BRIGH 


T 1;"SCORE: “4 INK 55;"HIGH: 


| "4 INK 2; "SHIP: né 
SD14 PRINT IMK 53j" 
590298 RETURN 
5500 FOR c=9 TO 72 STEP .5: PRINT 
AT y,x5 INK cs$ºE”: BEEP .91,c% 
>: BEEP .91,c%k-5: NEXT c 
SS19 LET score=zscore+3J99: GO TO 
39 


6999 FOR c=y TO 29: PRINT AT ce, 
xi INK RND X7;"E"; OVER 15; AT c 
51X5"Eº? BEEP ,Gl,-c: NEXT e 

69205 BEEP 1,-29: PAUSE 59 

6919 LET ship=ship+i: LET drop=9 
: LET up=9: CLS : G0 TO 38 


8999 PRINT AT 6,114 FLASH 15"GA 
ME OVER" 

8919 IF score>high THEN LET hig 
h=score: FOR c=1i TO 19: BEEP .g1 
s RND *%59: BORDER  RND X7: NEXT 
c: BORDER 9: PRINT AT 11,9; BRI 
GHT 15 FLASH 1;"WELL DONE - A NE 
W HIGH SCORE!!!!" : 
8928 PAUSE 2598: CLS : GO TO 5 
8999 STOP 

7000 DIM a$(5,32): DIM i$(5,32) 
9914 LET ship=l: LET man=9: LET 
x=2: LET y=3: LET nmans=i 

9915 LET s$= CHR$S 19+ CHRS 1+"E" 
à LET m6=" "+ CHR& 16+ CHRS 2+"A 
BC ": LET n$=" "+ CHRS 16+ CHRS 
Z*º"D E.” 

79234 LET mothx=9: LET drop=8: LE 
T score=9 
P9394 LET stagel=1909: LET stagez 
=20290: LET endgame=8994 7 
99484 LET wait=3099 

98442 LET pinc=2 

9945 LET surface=4999 

9047 LET topprint=5999: LET ship 
loss=6998 

9948 LET home=5599 

9959 DIM m(195: FOR c=1i TO 18 
90679 READ m(c): NEXT c 


9978 DATA 4,5,6,11,14,15,17,23,2 
S,26 

9989 RETURN 

9199 FOR c= USR "a" TO USR “n"+ 
7: READ a: POKE c,a: NEXT c 

9191 LET high=g 

9899 RETURN 


9998 DATA BIN 9, BIN 199, BIN 9 
9111111, BIN 1111111, BIN 119908 
9, BIN 11119119, BIN 11111111, B 
IN 11111111 
9981 DATA BIN 11999, BIN 111111 
9, BIN 11111111, BIN 11111111, B 
IN 9, BIN 11111111, BIN 11199111 
» BIN 119920811 
9992 DATA BIN 9, BIN 1990999, BI 
MN 11111198, BIN 11111119, BIN 11 
le BIN tiGiiisi, DIM sis14412 2157 
N 11111111 
9993 DATA BIN 11111999, BIN 111 
119929, BIN 11111999, BIN 1111199 
; Bim 114114, BEM 1414141, DEN 411 
1, BIN 111 
9994 DATA BIN 1999, BIN 11199, 
BIN 1111111, BIN 1991991, BIN 19 
11191, BIN 111119, BIN 199919, B 
IN 1909991 
9985 DATA BIN 11111, BIN 11111, 
BIN 11111, BIN 111119, BIN 1111 
1199, BIN 11111999, BIN 11119999 
s BIN 11199909 
9904 DATA BIN 11999, BIN 111119 
9, BIN 11111119, BIN 1111111, BI 
N 1111111, BIN 1111119, BIN 1119 
9%, BIN 19999 
9997 DATA BIN 9, BIN 111199, BI 
N 1199119, BIN 11111111, BIN 111 
11111, BIN 19111191, BIN 1999919 
» BIN 199199 | 
9998 DATA BIN 199999099, BIN 119, 
GOGAB, BIN 11199990, BIN 1111999 
9, BIN 11111999, BIN 11111999, B 
IN 11111119, BIN 11111111 
9999 DATA BIN 1, BIN 19119911, 
BIN 11111111,255,255,255,255,255 
9919 DATA BIN 1111111, BIN 1111 
ti, BIN 241171, BIM 1111, BIN 121 
» BIN 111, BIN 1, BIN SG 
9911 DATA BIN G, BIN 11199, BIN 
11199, BIN 1991991, BIN 111119, 
BIN 1999, BIN 19199, BIN 199919 
9912 DATA BIN 1, BIN 11, BIN 11 
» BEM S111, DEN 131144, DIM 21124 
1, BIN 1111111, BIN 11111111 
9913 DATA BIN 11111119, BIN 111 
11199, BIN 11111198, BIN 1111999 
9, BIN 11199099, BIN 11999998, B 
IN 19999998, 3 | 
9999 RETURN 


A TRAVESSIA DO RIO 


Este jogo coloca-lhe o clássico problema do la- 
vrador que tem que atravessar uma ponte, a ca- 
minho de casa, mas que não sabe resolver, uma 
vez que só pode transportar um dos seguintes 
haveres — o saco de grão, a galinha ou o lobo. 
Se atravessa primeiro o lobo, a galinha come o 
grão; se deixa o lobo e a galinha, o lobo come 
a galinha! | 
Ajude-o, então, seguindo as suas possibilidades, 
sabendo que se carregar na tecla W atravessa o 
lobo; na H, transporta a galinha e a C movimenta 
o saco. Lembre-se, no entanto, que só pode atra- 
vessar os «bonecos» que estiverem na mesma 
margem que o lavrador. 


Notas ao Programa 

As representações gráficas (lavrador, saco do 
grão, galinha e lobo) são construídas a partir de 
quatro caracteres definidos. O modo de os pro- 
cessar figura nas linhas de 10 a 332. As linhas 
de 400 a 450 definem o rio e as suas margens. 
É dada a cada caracter a variável 1 e -1, segundo 
a margem a que se referem. A sub-rotina que 
começa na linha 1000 assinala qualquer erro co- 
metido (p. ex. o lobo come a galinha) e entra em 
acção de acordo com o sucedido, quando há um 
erro o jogador é informado e o jogo recomeça. 
Verifica, ainda, se o jogo foi conseguido e, em 
caso afirmativo, aparece no écran uma saudação 
ao jogador. 

As linhas de 580 a 620 apagam as imagens no 
écran. 


1 REM CROSS THE RIVER 

2 REM BY CHRIS HOWARD STONE 

3 REM 8 BOULTON GROVE, HULL, HU 
MBERSIDE, HU9 3ED 

4 REM MARCH 1983 

19 REM UDG FOR HEN 


22 POKE 
23 POKE 


22 FOR N=2 TO 4: 
11111999: 


M, BIN 
23 
24 
25 
30 
31 
32 
33 
34 
35 
36 
37 
4% 
41 
42. 
43 
a4 
45 
46 
47 
sg 
s1 
52 
53 
54 
ss 


POKE 
PORE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


M, BIN GOBIVOAS: 


USR 
USR 


USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 
USR 


FOR N=5 TO 7: 


“A”, BIN B11ZG2O 


"“A”+1,BIN 
POKE 
NEXT M 

"A”+S, BIN 
"A" +6,BIN 
"A”+4+7, BIN 


11119999 
USR “A"+ 


21111111 
OO111111 
G0001111 


"Bº, BIN 99991111 


"B"+1,BIN 
"B"+2,BIM 
"B"+3,BIN 
"B"+4,BIM 
"B"+S,BIN 
"B"+6,BIM 
"Bº+7,BIN 


G9000111 
ADCT I1 
[0407]º007]":0%8 
Gogo ai da 
[000008008 00052] 
USDIDIDO 
DOZODOLO 


"C",BIM S9991119 


"C"+1,BIN 
"C"+2,BIN 
"C"+3,BIN 
“C"+4,BIN 
"C"+5,BIN 
"C"+4,BIN 
“C"+7,BIN 


0001111 
DOGOLLLO 
DIGO LIDA 
DOG1 1999 
11119999 
11199999 
11119099 


"D", BIN 11199999 


"D"+1,BIN 
"D"+2,BIN 
"D"+3,BIN 
"D“+4,BIN 
POKE 
NEXT N 


1994 REM UDG FOR WOLF 


191 FOR N=9 TO 1: 


N, BIN 8: 
192 POKE 
193 POKE 


194 POKE USR 
1245 FOR N=5 TO 
M, BIM GILGOGAD: 


146 
119 
111 
112 


POKE 
POKE 
POKE 
POKE 


NEXT 
USR 
USR 


USR 


USR 


USR 


USR 


POKE 
N 

"E"+2, BIN 
"E"+3, BIN 


"E"+4, BIN 


6: POKE 
NEXT N 
"E“+7, BIN 


11909 IS 
19990999 
DIVUZIIS 
DALGUSGA 
USR “DF+ 


USR "Eº+ 
GIGGIGDO 
GOO IZaa1 
9149991 
USR “Eº+ 


BiLLIZGOA 


"Fº", BIN G1L19991 


“PSA, BIN 
“E +, BIN 


11111991 
D1119991 


P asi k 


113 POKE USR “F"+3,BIN 
114 POKE USR "F"+4,BIN 
115 POKE USR “F"+5,BIN 
116 POKE USR “F"+6,BIN 
117 POKE USR "F"+7,BIN 
128 FOR N=8 TO 1: POKE 

M, BIN 199190999: NEXT N 
121 POKE USR "G"+2,BIN 
122 POKE USR "G"+3,BIN 
123 POKE USR "G"+4,BIN 
124 POKE USR "G"+5,BIN 
125 POKE USR "G"+6,BIN 
126 POKE USR "G"+7,BIN 
139 FOR N=8 TO 2: POKE 

N, BIN 11111999: NEXT N 
131 FOR N=3 TO 4: POKE 

N, BIN 11119298: NEXT N 
132 FOR N=5 TO 7: POKE 

N, BIN 1991292: NEXT M 


B1IlLIJOZS 
GBL1ZOL1 
09111111 
DOBILIGO 
s 

USR "Gº+ 


11119099 
I971 1090 
11111999 
11119999 
DIILZUDOS 
11119999 
USR "Hº+ 


USR “HF+ 


Um "8”o 


299 REM UDG FOR CORN BAG 


281 POKE USR “I“,BIN 
292 POKE USR “I"+1,BIN 
293 POKE USR “I"+2,BIN 
294 POKE USR “I“+3,BIN 
2245 FOR N=4 TO 7: POKE 

M, BIM G99AGB111: MEXT NM 
219 FOR N=8 TO 3: POKE 

M, BIN G9GGABL11: NEXT N 
211 POKE USR “J"+4,BIN 
212 POKE USR "J"+5,BIN 
213 POKE USR “J"+6,BIN 
214 POKE USR "“J"+7,BIN 
228 POKE USR "K",BIN 9 
221 POKE USR "K"+1,BIN 
222 POKE USR “K"+2,BIN 
223 POKE USR "K"+3,BIN 
224 FOR N=4 TO 7: POKE 

N, BIN 11199999: NEXT N 
239 FOR N=9 TO 3: POKE 

N, BIN 111299999: NEXT N 
231 POKE USR "L"+4,BIN 
232 POKE USR "L"+S,BIM 
233 POKE USR "L"+6, BIN 
234 POKE USR "L"+7,BIN 
389 REM UDG FOR FARMER 
391 FOR N=9 TO 2: POKE 

N, BIN GogagaLL: NEXT N 
392 POKE USR "M"+3,BIN 
393 FOR N=4 TO 5: POKE 

M, BIN 99911111: MEXT N 
384 FOR N=6 TO 7: POKE 

MN, BIN 99919111: NEXT N 
319 FOR N=8 TO 1: POKE 

MN, BIN 99919111: NEXT N 
311 POKE USR "Nº+2,BIN 
312 FOR N=3 TO 7: POKE 

N, BIN GOGOGBIG: NEXT N 
329 FOR N=8 TO 2: POKE 

N,BIN 11099999: NEXT N 


321 POKE USR "0"+3,BIN 
322 FOR N=4 TO 5: POKE 
N, BIN 11111999: NEXT N 


Dr pr 4 


COBIGIGA 
OGU LISA 
00991111 
USA *]7+ 


USR *“Jº+ 
DO991111 
DODOL IDA 
VODIZIDO 
g 

GUGBLIDA 
GL LAGO 
11119999 
USR "Kº+ 
USR "Lº+ 
11119999 
291 19999 
DIBILGGS 
g 

USR "Mº+ 


[262]26210)01 81 
USR "Mº+ 


USR “Mº+ 


USR “Nº+ 


0999111 
USR “Nº+ 


USR 70º+ 


19902999 
USR "“0"+ 


— oo 


323 FOR N=6 TO 7: POKE USR "0"+ 
N, BIN 11191999: NEXT N 
339 FOR N=9 TO 1: POKE: USR "P"+ 
MN, BIN 11191999: NEXT N 
331 POKE USR "P"+2, BIN 119999299 
332 FOR N=3 TO 7: POKE USR "P"+ 
N, BIN GiIGOGGAB: NEXT N 
499>REM DRAW RIVER AND BANK 
419 FLASH 9: BORDER SB: PAPER 4: 
CLS 
4286 PAPER 7: FOR A=9 TO 4: PRIM 
Tt aAT-a, tás * “: NEXT A: FOR A= 
18 TO 21: PRINT AT A,145º *o 
NEXT A 
434 FOR A=5 TO 7: PRINT AT A,8j5 
" — - “2º NEXT A: FOR 
A=1S TO 17: PRINT AT A,85" 
“2: NEXT A ” 
448 FOR B=1 TO 7: PRINT PAPER 
SIAT D+7,84" 
"“: MEXT B 
asa LET 4=1: LET h=1: LET c=i: 
LET w=1 
462 REM MAIN LOOP 
465 REM % Characters in lines + 
* 489 to SiZ are UDG's+% 
478 INK 9 
489 PRINT AT 6X(f=1)+15X(f=-1), 
S;"Mºs: PRINT "O": PRINT AT 7x(+f 
=1)+16%(4=-1),9;"N"3: PRINT "Pº 
499 PRINT AT 6X(h=1)+15k(h=-1), 
135 "A“;: PRINT "C": PRINT AT 7%( 
h=1)+16%(h=-1),135"B"$s: PRINT "D 
saga PRINT AT 6X(c=1)+15X(c=-1), 
1723 "1"s5º: PRINT "Kº: PRINT AT 7%( 
c=1)+16$(c=-1),17;"]";: PRINT ºL 
S19 PRINT AT 6X(u=1)+15%(m=-1), 
21;5"E"s: PRINT "G": PRINT AT 72%( 
w=1)+16%(w=-1),213"F"ºg: PRINT ºH 
": GO SUB 1999 
Ss20 IF INKEYS="" THEN GO TO 52 
a 
S3g LET mS=INKEYS: IF m$="h” OR 
m6="H” Ok m$="c"” Um m$="C" OR m 
&="w"” OR mê="Wº" OR m$="€£" OR m$ô= 
"E" THEN GO TO 545 
Ss49 BEEP 1,-12: GO TO 529 
S4sS IF (m$="c” OR m$="C") AND f 
*xc<>1 THEM GO TO 549 
s46 IF (m$="h” OR m$="H") AND h 
x*4<>1 THEN GO TO 548 
S47 IF (m$="w” OR m$="W”) AND w 
x£<>1 THEN GO TO 549 
ssa BEEP .4,24: IF m$="h" OR m$ 


="Hº THEN LET h=-1Xh 

SM IF m$="c" OR m$="C" THEN L 
ET c=-1%c | 
S724 IF m$="w"” OR m$="W” THEN L 
ET w=-1%w 

s9g PRINT AT 6%(f=-1)+15k(f=1), 


95º “2: PRINT AT 7X(f=-1)+16X(f= 
1,95" 

S2a PRINT AT 6%(h=-1)+15X(h=1), 
135” "2 PRINT AT 7X(h=-1)+16X(h 
=1),133º- * 

69% PRINT AT 6%(C=-1)+15%(c=1), 
175” "2: PRINT AT 7H(c=-1)+16X(c 
=1),175" 0» 

619 PRINT AT 6%(wW=-t)+15X(W=1), 
215” "2 PRINT AT 7H(w=-1)+16%(w 
atis2it"; * 

628 PRINT AT 6X(f=1)+15X(4=-1), 
91º “: PRINT AT 7X(f=1)+16%(f=- 
MD,95" 

632 LET 4=-1%4 
- 648 GO TO 469 


- 1999 IF F=-1 AND H=-1i AND C=-1 A 


ND W=-1 THEN GO TO 1984 

1919 REM ERROR DETECTION 

1928 IF SGN H<>SGN C THEN GO TO 
19539 

1939 IF SGN F=SGN C THEN GO TO 
1959 

19440 PAPER 2: INK 6: FLASH 1: PR 

INT AT 2,95"HEN EATS CORN": GO T 

O 1304 

1954 IF SGM W<>SGN H THEN  RETUR 


wuraa-Pbesli 


com esfera metálica de 


Faz cópias a «químico» 
claras e nítidas. 


. 


2 versões: 
a tradicional de corpo azul 
e a ULTRA-FINA (0,2 mm) 
de corpo preto em 4 cores 
de escrita. | 
A tradição de qualidade do fabricante: 
| MITSUBISHI PENCIL CO, LTD. 


à venda nas boas casas da especialidade | 


| A tradição de qualidade do fabricante: 
MITSUBISHI 
à venda nas boas casas da especialidade | 


N 
1969 IF SGN W=SGM F THEN RETURN 


1978 PAPER 2: INK 6: FLASH 1: PR 
INT AT 2,9; "WOLF EATS HEN": GO T 
O 1298 
1989 PAPER 3: INK 6: FLASH 1: PR 
INT AT 1,85"CONGRATULATIONS": PR 
INT AT 2,33"YO0U HAVE CROSSED THE 
RIVER” 
1999 BEEP .25,5: BEEP .25,5: BEE 
P .25,5: BEEP .25,9: BEEP .25,2: 
BEEP .25,2: BEEP .5,9: BEEP .25 
59: BEEP .25,9: BEEP .25,7: BEEP 
.25,7: BEEP 1,5 
1199 STOP ; 
1299 BEEP 1,9: BEEP .75,9: BEEP 
.25,9: BEEP 1,9: BEEP .75,4: BEE 
P .25,2: BEEP .75,2: BEEP .25,9: 
BEEP .75,9: BEEP .25,-1: BEEP 1 
.25,9: GO TO 499 
1399 BEEP .25,9: BEEP .25,4: BEE 
P .25,9: BEEP .25,4: BEEP .25,8: 
BEEP .75,4: FOR M=1 TO 4: BEEP 
125,4: NEXT M: BEEP .25,2: BEEP 
375,2: BEEP 1,9: GO TO 499 


Lapiseiras de precisão há 
em 5 modelos à sua escolha. 9) n 


Caneta de tinta líquida Evoluída tecnologia 
de fabrico nas medidas 


longa duração, que escreve 0,3-0,5-0,7-0,9 mm 
em qualquer ângulo. de espessura de traço. 


Marcadores de traço intenso 
extra-fino, de alta precisão. 
Duas espessuras de traço à 
escolha: 0,2 e 0,3 mm. 
Escrita nítida 

e confortável. 


a , 


Com apagador e arame | À ponta de «design» exclusivo 


de limpeza incorporados, produz um fluxo constante de , 
clip metálico e apoio tinta e um traço de espessura | 
anti-derrapante. uniforme. 


A tradição de qualidade do fabricante: 


hp PENCIL CO. LTD. 


à venda nas boas casas da especialidade | 


PENCIL CO,, LTD. 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 
2700 AMADORA 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 
2700 AMADORA 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama, 10-B. Damaia 
2700 AMADORA 


É um excelente jogo escrito por TAT TANG, para 
o ZX SPECTRUM. 

O objectivo deste jogo é conseguir chegar ao 
cimo de uma parede, guiando o seu «boneco» 
por entre as várias filas de tijolos, perseguido 
por umas pequenas e terríveis criaturas verdes. 
Conseguirá escapar-lhes? Tem que se manter cal- 
mo, nada de pânico, mas toda a sua atenção é 
posta à prova. 

Para sobreviver você tem que destruir os seus 
inimigos cavando pequenos buracos onde os 
mete. Depois... tem que lhes «dar na cabeça» até 
eles morrerem! 

Atenção que lhe pode faltar o oxigénio! Os mo- 
vimentos excessivos ou demasiado lentos são-lhe 
prejudiciais por que lhe dispendem a quantidade 
limitada de oxigénio de que dispõe. Se for apanha- 
do, perde uma vida. 

O programa tem uma bela imagem combinada 
com o recurso à cor e ao som e vai mantê-lo, 
suspenso, sentado à beira da cadeira! 


10 POKE 23693,56: CLS : GO TO 575 
20 CLS : DEF EN R(X)J= INT (« RND 4X): 
36 LET X1I=X: LET Y1=Y 
40 IF INKEYS ="H" THEN GO SUB 750 
SO IF X=3 OR X=8 OR X=13 OR Xx=18 THEN 
3486=239 AND Y>0): 
=UN+.25: GO TO 90 
60 LET UN=UN+. 15: LET AS="A" 
PO IF ATTR (X+1,Y)=57 AND 
80 IF ATTR (X-1,Y)=57 AND 
SO PRINT AT XL, V1Fº * 
100 IF F=1 THEN PRINT AT X1,Y1j 
110 IF Xi <> X THEN LET UN=UN+.15 
120 LET F=0: IF ATTR (X,Y)=57 THEN 
130 IF 
10 


LET AS=("E” AND Y1>Y)+("F”" AND YI<Y): 


IN 6€1438=239 THEN 
IN 61438=247 THEN LET X=X-1: 


Notas ao Programa 
Introduza o programa 1, para definir os gráficos 
e execute-o. Escreva depois o resto do programa 
e grave-o através da instrução GOTO 9999. 
Como o programa é gravado em duas partes, 
uma a seguir à outra, não se esqueça de premir 
uma tecla depois do primeiro ser gravado. 
Para verificar faça: VERIFY ««VERIFY»» CORE e 
prima NEW LINE. 
O programa retem e grava os melhores resultados 
obtidos. 
Teclas — 5 para a esquerda 

6 para baixo 

7 para cima 

8 para a direita 

9 escava para a esquerda 

O escava para a direita. 


Certifique-se que as linhas seguintes são introdu- 
zidas em modo GRAPHICS: 50, 60, 100, 150, 160 
820. 


GO TO 610 


IN 61436=251 AND Y<31)-( IN é 
IF VI <> Y TREWN LET MA 


LET YeY<+l 


LET F=] 
LET F=1 


LET X=X+1: 


INK 15ºD”" 


LET F=1 | 
IN 61438=255 OR X <> 3 AND X <> B AND X <> 13 AND X <> 16 THEN GO TO 2 


e 
am 


a 
4 


* a 


140 LET V= ATTR (X+L,Y+1): LET Vi= ATTR (X+1,Y-1): IF V=58 OR V1=58 THEN LET Ss 


C=SC+5: PRINT AT 0,6;SC€ 

150 IF IN 614538=253 AND ATTR 
TTR (X,Y-1) 
1 FO 3: PRINT AT A4,Y-15"0”: 
Y04º “2: BRR 03,4% 

160 IF IN 61438=254 AND ATTR 
R (X-L,Y+%1) 
4 TO 5: PRINT MT X,YTOL]"E*5 


PAUSE 


PAUSE 


Eç= 
<> 57 THEN LET UN=UN+. 


PRINT AT X+L,Y-13ºK": 
(x, 
<> 60 THEN LET UN=UN+. 


L,Y-1) <> 57 AND ATTR (x-1,y-1) <> 60 AND A 
15: LET W=1: PRINT AT X,Y5 INK 15"E": FOR N= 
2: PRINT AT X,Y-L;"H": PAUSE 2: PRINT ATX, 
NEXT Nº: PRINT AT X+1L,Y-15º " 

<> 57 AND ATTR (X-1,Y+1) <> 57 AND ATT 
LET W=2: PRINT AT X,Y5 INK 15"F": FOR N= 
PRINT AT X,Y+1;"]": PAUSE 2: PRINT ATX, 


Y+1) 
13: 
2: 


Y+e15" BEEP .O1,Y: PRINT AT X+1L,Y+1;"K": NEXT Nº PRINT AT X+1,Y+15" 
170 IF Vi=58 AND W=1 THEN PRINT AT X+1,Y-1; PAPER 6;"C" 

180 IF V=S8 AND W=2 THEN PRINT AT X+1,Y+1; PAPER 6;"C" 

190 LET W=0 

200 IF JATTR (X,Y)=60 THEN PRINT AT 2,5;"YOU HAVE BEEN MUNCHED!"; 
1; OVER 1; FLASH 1;"A": GO TO 530 

210 IF ATTR (X,Y)=62 THEN GO TO 880 

213 PRINT AT X,Y5 INK 15;AS: IF ATTR (X+1,Y)=56 THEN PRINT AT 2,25" IDIOT YOU 
FELL DOWN A PIT"; AT X,Y5" "5 INK 15 AT X+1,Y5;"A”: GO TO 530 

215 IF XY <= 125 AND F2=0 THEN GO TO 850 
220 FOR N=1 TO (UNH10)/LV: PLOT INK 2;XY,8: 
-1: LET UN=UN-.1: NEXT N 

230 IF XY <= 72 THEN PRINT AT 2,0;"YOU'VE DIED FROM LACK OF OXYGEN": PAUSE 10 
o: GO TO 530 

240 LET Al=A(Z): LET BI=B(Z) 

250 IF ATTR (Al+1,B1)=56 THEN GO TO 470 

240 IF Al=X THEN IF Al=3 OR Al=8 OR Al=13 OR Al=18 THEN GO TO 350 

270 IF C(Z) <> O THEN GO TO 300 

280 IF JATTR (Al+1,B1)=57 OR ATTR (Al-1,B1)=57 THEN GO TO 330 

290 G0 TO 350 

300 LET A(Z)=A(Z)+C(Z): 
)=0: PRINT AT A1,B1; INK 15;"D": 
310 PRINT AT Al,B15 INK 1;"D": 
320 GO TO 400 

330 IF AlI<X AND ATTR (Al+1,B1)=57 THEN LET C(Z)=l: 
340 IF Al>X AND ATTR (Al-1,B1)=57 THEN LET C(Z)=-1: 
3S0 IF Al=X THEN LET BiI=Bi1+(BI<Y)-(B1>Y): GO TO 380 
360 LET BiI=BI+D(Z) 

370 IF Bi >= 31 OR Bi <= O THEN LET D(Z)=-D(Z) 

380 PRINT AT A(Z),B(Z)5" IF F(Z)=1 THEN PRINT AT A(Z),B(Z)5 
390 LET F(Z)=0: IF ATTR (AL,B1)=57 THEN LET F(Z)=1 

400 PRINT AT Al,B1i; INK 45"B" 

405 IF F2=1 THEN PRINT AT FS,F4; OVER 1; INK 65"0" 

410 IF Al=X AND Y=Bi THEN PRINT AT 2,5;"YOU HAVE BEEN MUNCHED"; AT X,Y; OVER 
15 INK 1; FLASH 1;"Aº*: GO TO 530 


420 IF ATTR (Al+1,B1)=S56 THEN GO TO 470 
430 LET A(Z)=Al: LET B(Z)=B1 

440 LET Z=Z+1: IF Z >= Ci THEN LET Z=1 
4S0 IF INKEYS ="H” THEN GO SUB 750 

460 GO TO 30 

420 PRINT AT AL, BL5º “4 
1,5-N: NEXT N 

480 IF Ci-1=1 THEN LET SC=SC+i1o0: 
490 LET A(Z)=A(CI-1): LET B(Z)=B(CI-1): 
S0O0 LET SC=SC+1O: LET Ci=Ci-1 

510 PRINT AT 0,6;SC: LET Z=1: GO TO 440 
s20 PRINT AT 1,0; FLASH 1; INK 4; "BONUS": FOR 
a: PLOT XY,8: DRAW INK 25 OVER 150,7: LET SC=SC+1: PRINT AT 0,65SC: 
L: NEXT Nº FOR N=1 TO SO: BEEP .05,N: BEE” .05,50-N: NEXT N: GO TO 20 
S30 IF SC>HI THEN PRINT AT 1,05 FLASH 15 INK Z5"CONGRATULATIONS A NEW HI-SCOR 
E": FOR N=0 TO SO: BEEP .01,N: BEEP .01,25-N: NEXT N: POKF USR "U*,SC-256% INT 
(SC/256): POKE USR “U"+1, INT (5C/256): GO TO 550 
s40 PRINT AT 0,05: FOR N=1 TO 11: PRINT INK 8; 


AT X,Y5 INK 


DRAW INK 2; OVER 150,7: LET XY=XY 


IF A(Z)=3 OR A(Z)=8 OR A(Z)=13 OR A(Z)=18 THEN 
LET AlL=A(Z): LET F(Z)=1i: GO TO 350 
LET AL=A(Z): LET B1i=B(Z): GO TO 400 


LET Ci(Z 


GO TO 300 
GO TO 300 


INK 17D” 


AT AlL+1,B1; INK 25"B": FOR N=1 TO 4: BEEP .1,N: BEEP 
GO TO 5320 


LET F(Z)=F(Ci-1) 


N=XY TO 72 STEP -1: BEEP .OL,XY/ 


LET XY=XY- 


OVER 1; FLASH 15º 
NEXT N: FOR N=1 T 
BEEP .5,-10: PAUSE 40: NEXT N: FOR N=50 TO O STEP -1: BEEP .05, 


PAPER 8; 
2º: BEEP .3,-3: 
NEXT N 

SSO PRINT AT 11,5;"PRESS ANY KEY TO START”; AT 13,35 "PRESS 


0 
Nº 


*1I* FOR INSTRUCTION 


S"*: IF IN 254=255 THEN GO TO 550 

s720 GO TO (575 AND INKEYS <> "I")+(780 AND INKEYS ="1º) 

s725 INPUT “LEVEL(1-5)"; LINE L$: IF L$>"S" OR L$<"1" THEN GO TO 575 

s76 LET LV= VAL L$%39: GO TO 600 

s80 LET N=0: POKE USR “U”,N-256% INT (N/256): POKE USR "U"+1, INT (N/256) 

s90 CLS : PRINT INK 2; "WRITTEN BY T.TANG"; INK Oj AT 13,3; "PRESS "1º FOR INSTR 
UCTIONS": FOR N=19 TO 21: PRINT AT N,05 INK Ss. WRESEEENGSEEESNGRGSASESRSRGECEES 
“s NEXT N: PRINT AT 20,35 INK 23)ºS PECTRAL-PANI Cc”: PRINT AT 11,55" 
PRESS ANY KEY TO START": PAUSE O: GO TO 570 

600 CLS : LET LE=O: LET SC=0: LET HI= PEEK USR "U"+256% PEEK ( USR "U"+1) 

610 CLS : INK O: PRINT AT 19,0; PAPER 6; "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCMME 5 
INK 2; PAPER 75 "0OXYGEN>"; INK O; PAPER é 5 DID A 1 NING NS N N N IN INININ INN 
NNNNNNNNNHINNNNNN " 

620 FOR N=4 TO 14 STEP 5: PRINT AT N,0; PAPER 6; "CCCCCCCCCCCCCCCCCcCCCCCCCCcCCCcC 
CCCULLILLLLLLLLLLLLLLLLLLLLULLLLLLLLO": BEEP .1,50-N: BEEP .1,N: NEXT N 

630 PAUSE 25 | 

640 FOR N=3 TO 13 STEP S: LET Z= FN R(13)+1: FOR F=0 TO 5: PRINT AT N+F,Z; INK 

15"D": BEEP .OS,N+F: PRINT AT N+F,31-Z; INK 1;"D": BEEP .0S,N+F: NEXT F: BEEP 
.1,F: PAUSE 10: NEXT N 

650 PRINT AT 0,0;"SCORE>";SC; AT O,16;"HI-SCORE>";HI 

660 LET Y= EN R(31)+1: LET W= FN R(49): IF W=0 THEN LET X=5 

670 IF W=1 THEN LET x=8 

680 IF W=2 THEN LET X=13 

690 IF W=3 THEN LET xX=18 

200 IF ATTR (X,Y)=57 THEN GO TO 660 

210 LET F2=0: LET Z=1: DIM D(4): DIM A(4): DIM B(4): DIM Ct(4) , 

220 LET A(1)=3: LET D(1)=1: LET B(1)= FN R(30)+1: PRINT AT A(1),B(1)5 INK 45"B 
»: BEEP .OL,A(1): FOR N=2 TO 4: LET A(N)=A(N-1)+5: LET D(N)=1 

230 LET B(N)= FN R(30)+1: IF ATTR (A(N),B(N))=57 OR A(N)=X AND B(N)=Y THEN Go 

TO 730 

240 LET W=0: LET Ci=S5: PRINT AT A(N),B(N); INK 4;"B": BEEP .O1,A(N): NEXT Nº: L 
ET LE=LE+1: DIM F(4): LET UN=O: LET XY=(30-LE)X8+7: FOR N=9 TO JO-LE: BEEP .O1,N 
: PRINT AT 20,N; INK 25"H": NEXT Nº: GO TO 30 

250 PRINT AT 1,12; FLASH 1; INK 25 "GAME"; INK 1; “HELD*: IF IN .254=255 OR INK 
EY$ ="Hº THEN GO TO 750 

760 PAUSE O: PRINT AT 1,125" ": RETURN 

770 POKE 23658,8: CLS : PRINT AT 11,95 INK 1; FLASH 15 "LOADING"; INK 2; "LOADIN 
G"; AT 12,95"LOADING"; INK 1; "LOADING": INK 7: LOAD ** CODE USR "A": INK O: GO 
TO 580 

280 CLS : PRINT "XINSTRUCTIONS*"" "USE CURSOR KEYS TO MOVE"""9 AND O TO DIG**“H 
TO HOLD"* “O EXTRA OXYGEN"; FLASH 1'"DIGGING": FOR N=0 TO 31: PRINT PAPER 6; AT 
2, N5"C”; AT 13,N9ºLº2 NEXT N 

790 PRINT AT 11,16; INK 15"E": FOR N=1 TO 5: PRINT AT 11,155"6": PAUSE 2: PRI 
NT AT 11,155ºH*: PAUSE 2: PRINT AT 11,15;" ": BEEP .O1l,11: PRINT AT 42,151ºK” 
2 NEXT Nº: PRINT AT 12,155" * 

800 PAUSE SO: PRINT AT 5,0; FLASH 1; "ALIEN-1O POINTS": FOR N=1 TO 14: PRINT A 
T 11,N$ INK 45" B": PAUSE 15: NEXT Nº: PRINT AT 11,155" €5 ar 12,183 INK 2Z1ºBº& 
FOR N=i TO 4: BEEP .1,N: BEEP .1,5-N: NEXT N 

810 PAUSE SO: PRINT AT 5,0; FLASH 1;"BURY ALIEN-S POINTS" 

820 PRINT AT 11,165 INK 1;"E*: FOR N=1 TO 5: PRINT AT 11,155ºG": PAUSE 2: PRI 
NT AT 11,15;ºH": PAUSE 2: PRINT AT 11,155" “: BEEP .01,11: PRINT AT 12,155ºKº 
: NEXT N: PRINT AT 12,15; PAPER 6; ºC” 

630 PRINT AT 15,2;"HIT 'I' TO REPEAT INSTRUCTIONS*"* TAB Si “ANY OTHER KEY TO P 
LAY GAME": PAUSE 75 

840 GO TO (780 AND INKEYS ="I")+(10 AND INKEYS <> "I")+(830 AND INKEYS nº" 

8s0o IF RND >.7 THEN LET F2=2: GO TO 220 

860 PRINT AT 1,105 INK 6; FLASH 1; "EXTRA OXYGEN": LET F4= INT ( RND *%32): LET 
Fó= EN R(4): LET FS=(3 AND Fó=0)+(8 AND Fó=1)+(13 AND Fé6=2)+(18 AND F6=3) 

865 IF ATTR (FS,F4)=57 THEN GO TO S60 

8720 LET F2=1: GO TO 220 

880 PRINT AT 1,105" “. LET F2=2: LET F3= INT « RND %40)+30: FOR N=1 

TO F3: LET XY=Xy+1: PLOT XY,8: DRAW INK 250,7: BEEP .01,XY/5: NEXT N 

890 GO TO 213 
P998 STOP 
9999 SAVE "PANIC" LINE 770: SAVE “UDG" CODE USR "A",168 
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FÓRMULA UM 


Escrito por David Price para o Spectrum. 


É uma prova de velocidade e você é o favorito! 
Não se esqueça do capacete e do cinto de segu- 
rança. Eles salvam. E então, prego ao fundo, para 
bater o record dos 32 segundos do David Price. 


Cuidado com as barreiras da pista. 
As instruções vêm no programa. 


1 GO SUB 1000: LET a=2: BORDE 
R 1: PAPER 1: CLS 


3 PRINT aT 8,6; INK a; "EHEHE EB 
FE HW ENS HEM ENE 
ow ” Ro. ERE E 
sa E EE EHN ES E 
E. ” EE EEE 


E EEN NEM E EH 

S IF a=8 THEN BEEP .3,1272: BE 
EP .5,6: SEEP .3,1S5: GO TO 10 

6 LET a=a+1: FOR €=1 TO 3: LE 
T o=.01253: BEEP 0,2: PEEF c,4: B 
EEP o,6: PEEP 0,8: BEEP 0,10: EE 
EP 0,12: BREEP 0,14: BEEP o,!6: B 
EEP 0,2: REEP 0,4: BEEP 0,4: NEX 
F.+3 08 PO.'s 

SO JMK-7P! CLS 4 LET s=0: LET + 
ime=0 


15 PRINT AT 0,125 "RACEP"CC"IA 
)-- LEFT," (S)-- RIGHT""º" (1) -- 
UP”, "(M)-- DOWN" 

12 PRINT º" "THIS IS A RACE AGA 


INST THE CLOCK" 


- 
Re! 


20 PPINT "º*"” DAVID PRIC 


Z 


s1 
s2 
5» 
s4 
33 
s 6 
20 
p=1: 
LS 
100 


REM 
REM 
PEM 
REM 
REM 
REM 
LET 


1963""" " "PRESS ANY KEY TO BEGI 
THE BACS 72 PAUSE O 


HELLER ERRAR A KA 
*k The "A” in lires x 
* 210,290 and 260 are % 
* entered in GPAPHICS X 
* mode. * 
CAIA RAARAHHAHEKKEHA HA 
q=1: LET laz=100: LET la 


BORDER 1: PAPER 1: INK 9; €C 


POR 


$=0 TO 31: PRINT AT à, 


43 PAPER 25"%X"; AT 20,f5;"X";: NE 


MT + 


101 FOR 4=1t TO 20: PRINT 


AT £, 


Os PAPER 25"%º; AT €,3135"%º3: NE 


XT + 


JOS FOR f=3 TO 192 PRINT 


ATA, 


++ PAPER 63º") RF F,455"4º) AT 
F 


195" 8ºS 
104 FOR 4=2 TO 18: FRINT 


AT 4,285 "x": MEXT + 
at +, 


é) PAPER 65"%"; AT +, 163"X"; AT 


L, 255 "%": 


NEXT + 


108. FOR 4=7 TO 10º: PRINT . AT á, 
41 PAPER 3;"%"; AT 12,4;"%"; AT 


1B,41"R: 


MEXT f 


“a A d 
EE all 
RE” 
' Aa pt 


106 FOR 4=9 TO 12: PRINT ATS, 190 FOR 4=8 TO 14 STEP 6: PRINT 
te PAPER F1ºR"P AT P,tyPts ATL AT +,81 PAPER J1"%"708T T,X45 
8,690 4º4 NEXT + PAPER 9;"%252 NEXT £ 
107 FOP 4=20 TO 22: PRINT AT-'S 181 FOR €=7 TO 15 STEP é: PRINT 
4; PAPER 4)"X"; AT 9,45"%"5; AT AT £, 113 PAPER 3/"%"; AT 4,214 
LS, 63º: NEXT 4 PAPER 4/"%"j= NEXT ft: GO TO 200 
108 FOR 4=22 TO 24: PRINT AT é 1?3 POKE 235673,283: POKE ZIJÉFA2, 
4; PAPER 43º"; AT LB,FPrRº; AT 255 
O, FPS, MEET FE BB TIM ro PRINT AT 20,29). INK 37"+7) 
120 FOR 4=7 TC IS STEP 6: PRINT BT 20 SOS" 4" 
AT 4,95 FAPER 34º%º; AT 4,233 190 PRINT AT O,OS.º"FASTEST TIME 
PAPER 45"X"s: NEXT £€ FOR COURSE "41 INT (timej; AT 21 
121 FOF f=6 TO 13 STEP 6: PRINT qOI"TIMESS AT 21,16] CLAP* 
AT 4,11; PAPER J4º4"4 AT +,211 200 PRINT AT 2Zi,<SCjlap: LET as 
PAPER 4j"RºSJ: NEXT £: SO TO 200 Pe KT ami 
140 FOR £a4 TO 14 SZTEP 5: PRINT .0OS LET tia(2586% PEEK 23673+ PE 
a“ 4,0; PARER 3 re*; AT +,231 EK 23672)/50 
| PAPEP dp" 4ºso MEXT 4 208 PRINT AT 21,6; INT ti 
. 14] FOR 4=S TO 17 STEP 6: PRINT Z10 PRINT AT a,b;"A”; AT a,bs" 
AT 4,115 PAPER 3;"%"; AT €£,215 a ar asoICNS AT 4,03" Ci 
PAPEP 4;"x";: NEXT £: GO TC 200 Z20 LET b=b-( INKEYS ="a*)+( IN 
160 FOR €4=3 TO 18 STEP é: PRINT KEYS ="sº): BEEP .001,5 
AT £*,2; PAPER ó;"k"; AT E,55"% 230 LET az=a-( INKEYS =ºkº)+<( IN 
SJ AT E, 245º"; AT Foi2F"R") AT KEYS =“mº) 
t, 263 "%"; AT €,29;"X"p: NEXT + 240 IF SCREENS (a,b)="*" THEN 
141 FOR f=6 TO 18 STEP 6: PRINT FOR q=0 TO 7: PRINT AT a,b; FL 
at 4,15 PAPER AJ" i AT +” ASH 1;"A”: BORDER q: PEEP .09, R 
“3 AT 4,1245841" %º) AT +,10;"8"4 AT ND +20: NEXT q: GO TO “00 
| 2º AT 4,603" R"FS MENTF Ta 280 IF SCREENS (a,b)="+" THEN 
dl G2 TO 200 


+. 


tá nto 


ali a 


- 


AN 


hn 


Yi 


18 


RE” .S56º GO TO 500 BARFPLERSºº* “YOU RACED. POE." os 
ZãO PRINT OVER 131 AT a,b;"A” NT ttily” SECEMDS" 
00 60 TO 2085 “eo PRINT.º"*ºYOU WERE OM ERP * 
500 LET la=la+20: LET lap=lepti | Jlap”**" "BEST TIME FOR COUPSE "st 
502 IF lap=óé THEN CO TO coco imne 
504 PRINT AT 21,20:larp o PREN “7*s 
3506 GO TO la (veem 
600 FOR *=9 TO 7: BEEF .002, RH 731 IF INKEY$ ="y" OR INKEYS 
D 2: BEEP .003, RMB Li BEREP|, .09€, =º"y" THEN GO TO 50 
RND é: REEP .006, RND : BORDEP €: ><a +tE INKEY$ ="N" OP JINKEYS 
NEXT f€: BORDER 7: PAPER 7: INK ="n”" THEN GO TO 2900 
O: CLS Zoo 60 TO 731 
610 FEINT "YOU HAVE COMPLETELR T 1000 FOR a=0 TO 7º: READ nº POKE 
HE RACE"ººº"*"YOU FIMISRTD IM *1 E USR "A"+a,n: NEXT a! PETURN 


NT (t1)4" SECONDS" 1010 DATA 60,60,60,255,255,255,1 
611 LET s=st+1 02,102 


Re 60 MM SM IR 60 2900 PORDER 7: PAPER 7: CLS : LE 
615 IF INT (ti)>time THEM LET T q=1 

time= INT (ti) 3000 PRINT AT 10,12; INK q;"CHE 
620 PRINT "*" "BEST TIME FOR COU ERIO" E 
RSE ": INT (time) 3003 IF q=ó THEN LET 3=1 

625 60 TO 750 3004 LET q=q+i: FOS $=1 TO 4: LE 
AJOo IF. INT tti)jctime THEM . LET T a=.012: BEEP a,-4: BEEP a,-6: 
time= INT (ti) BEEP a,-9: BEEP a,-10: BEEP a,-i 
630 GQ TO 620 2: REEP a,-14: BEEP a,-l6: BEEP 
700 BOPDER 7: PAPER 7: INK O: C a,-2: BEEP a,-4: BEEP a,-6: NEXT 


LS 4: GO TO 3000 
710 PRINT "YOU CRASHED INTO THE 5000 SAVE "PACER" 


ANOTHES RACE 


> 
y 
+ 


LINE 1 


COMPUTADORES TIMEX 


om OM A A O E TR 
E a A mm O a O 


| E e Dome mm ata 
SENSACIONAL! | Êo a 
2 COMPUTADORES NUM SÓ! á 


A CARTRIDGE IMOLADORA PERMITE-LHE UTILIZAR 
TODO O SOFTWARE EXISTENTE PARA ZX-SPECTRUM TIMEX 2048 (72 K) 
E A SPECTRUM (48 K) 
2068 - JÁ PARA ENTREG TIMEX 1500 (16 K) 


SISTEMAS DE DISCO FDD TIMEX 


1 H. OLIVEIRA A J.M.C. PERIFÉRICOS (JOYSTIKS, 


IMPRESSORAS, LIGHT-PEN, ETC.) 
C. C. PORTELA - LOJA 5 - 1.º ANDAR 


Telf. - 251 49 51 PROMOÇÃO 
2685 - SACAVÉM 


SPECTRUM - 48 K 
TODA A GAMA EM + 150 PROGRAMAS 27 000$00 
MICROINFORMÁTICA 


MICRON MONSERRATE 
C. C. Oceano - 1) 35 R. Guilherme Gomes Fernandes, 


SOFTWARE COM INST. EM PORTUGUÊS saia jo 31-B (frente à R. Nacional) 


Telef. 981 11 39 ODIVELAS 
PREÇOS DE REVENDA BeREE. B N 


ENVIAMOS À COBRANÇA 


